Sub Refresh()

    ActiveWorkbook.Connections("Power Query - Transactions").Refresh

End Sub
